(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     44216,       1437]
NotebookOptionsPosition[     31019,       1108]
NotebookOutlinePosition[     31448,       1126]
CellTagsIndexPosition[     31405,       1123]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
 "Style Definitions for the ",StyleBox["Mathematica",
  FontSlant->"Italic"]," developments at University of Szeged ", "2011"
}], "Subtitle",
 CellMargins->{{0, Inherited}, {Inherited, 0}},
 CellFrameMargins->{{20, 4}, {8, 20}},
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[0],
 Background->RGBColor[247/256,141/256,30/256]]
}, Open  ]],


(*
Cell[StyleData[StyleDefinitions -> "Core.nb"]],
*)


Cell[CellGroupData[{

Cell["Style Environment Names", "Section"],

Cell[StyleData[All, "Working"],
 PageWidth->WindowWidth,
 CellLabelMargins->{{12, Inherited}, {Inherited, Inherited}},
 ShowAutoStyles->False,
 ScriptMinSize->9,
 MenuPosition->1100
],

Cell[StyleData[All, "Presentation"],
 PageWidth->WindowWidth,
 ShowCellBracket->Automatic,
 ShowGroupOpener->True,
 CellLabelMargins->{{24, Inherited}, {Inherited, Inherited}},
 ShowAutoStyles->False,
 AutoStyleOptions->{"HighlightMisspelledWords"->False},
 ScriptMinSize->15,
 MenuPosition->1200],

Cell[StyleData[All, "SlideShow", StyleDefinitions -> StyleData[
 All, "Presentation"]],
 PageWidth->WindowWidth,
 DockedCells->FEPrivate`FrontEndResource[
  "FEExpressions", "SlideshowToolbar"],
 ScrollingOptions->{"PagewiseDisplay"->True,
 "VerticalScrollRange"->Fit},
 MenuPosition->1300],

Cell[StyleData[All, "Condensed"],
 PageWidth->WindowWidth,
 CellLabelMargins->{{8, Inherited}, {Inherited, Inherited}},
 ShowAutoStyles->False,
 ScriptMinSize->8,
 MenuPosition->1400],

Cell[StyleData[All, "Printout"],
 PageWidth->PaperWidth,
 CellLabelMargins->{{2, Inherited}, {Inherited, Inherited}},
 ShowAutoStyles->False,
 ShowSyntaxStyles->False,
 AutoStyleOptions->{"HighlightMisspelledWords"->False},
 ScriptMinSize->5,
 MenuPosition->1500,
 PrivateFontOptions->{"FontType"->"Outline"},
 Magnification->0.8
]
}, Closed]],



Cell[CellGroupData[{

Cell["Notebook Options Settings", "Section"],

Cell["\<\
The options defined for the style below will be used at the Notebook level.\
\>", "Text"],

Cell[StyleData["Notebook"],
 PageHeaders->{{
    Cell[
     TextData[{
       Cell[
        TextData[{
          CounterBox["Page"]}], "PageNumber"], " ", 
       Cell[
       " ", "Header", CellFrame -> {{0.5, 0}, {0, 0}}, CellFrameMargins -> 4], 
       Cell[
        TextData[{
          ValueBox["FileName"]}], "Header"]}], 
     CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   None, None, 
    Cell[
     TextData[{
       Cell[
        TextData[{
          ValueBox["FileName"]}], "Header"], 
       Cell[
       " ", "Header", CellFrame -> {{0, 0.5}, {0, 0}}, CellFrameMargins -> 4],
        " ", 
       Cell[
        TextData[{
          CounterBox["Page"]}], "PageNumber"]}], 
     CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
 PageHeaderLines->{False, False},
 PageFooterLines->{False, False},
 PrintingOptions->{"FacingPages"->True,
 "FirstPageFace"->Right,
 "FirstPageFooter"->True,
 "FirstPageHeader"->False}]
}, Closed]],

Cell[CellGroupData[{

Cell["Styles for Titles, Chapters and Sections Cells", "Section"],

Cell[CellGroupData[{

Cell["Titles", "Subsection"],

Cell[CellGroupData[{

Cell[StyleData["Main-header"],
 CellMargins->{{0, 10}, {0, 25}},
 CellHorizontalScrolling->True,ShowCellBracket->Automatic,TextAlignment->Center,
 MenuPosition->990],

Cell[StyleData["Main-header", "Printout"],CellMargins->{{0, 10}, {0, 25}}],

Cell[StyleData["Main-header", "SlideShow",CellMargins->{{0, 10}, {0, 25}}]
]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["MainTitle"],
 CellFrame->{{1, 2}, {2, 1}},
 CellDingbat->None,
ShowCellBracket->Automatic,
 CellMargins->{{0, 10}, {20, 20}},
 CellElementSpacings->{"GroupIconTopMargin"->0},
 CellFrameColor->RGBColor[0, 0, 0.2],
 
(* CellMargins->{{27, Inherited}, {10, 30}},*)
 CellGroupingRules->{"TitleGrouping", 0},
 PageBreakBelow->False,
 DefaultNewInlineCellStyle->"None",
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LanguageCategory->"NaturalLanguage",
 MenuPosition->1000,

TextAlignment->Center,
 TextJustification->0,
 LineSpacing->{1., 5.},
 CounterIncrements->"Main-Title",
CounterAssignments->{{"Part", 0}, {"Chapter", 0} ,{"MainSection", 0},
 {"Section", 0}, 
 {"NumberedEquation", 0}, {"NumberedFigure", 0}, 
{"Subtitle", 0}, {"Subsubtitle", 0},
{"Problem", 0},{"SolvedProblem", 0},{"Experiment", 0},
{"Theorem", 0},
{"Remark", 0},{"Corollary", 0},{"Definition", 0},
{"Th-Env", 0},
{"ItemNumbered", 0}},
 FontFamily->"Helvetica",
 FontSize->30,
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontTracking->"Plain",
 FontColor->RGBColor[1, 1, 1],
 (* Background->RGBColor[0.850004, 0.80004, 1]
*)
 Background-> RGBColor[
  0.35, 0.40, 0.8]
 ],

Cell[StyleData["Main-Title", "Presentation"],
 CellMargins->{{0, Inherited}, {20, 45}},
 LineSpacing->{1, 5},
 FontSize->42],

Cell[StyleData["Main-Title", "Condensed"],
 CellMargins->{{0, 10}, {4, 8}},
 FontSize->20],

Cell[StyleData["Main-Title", "Printout"],
 CellMargins->{{0, 10}, {10, 20}}],

Cell[StyleData["Main-Title", "SlideShow"],
 FontSize->42]
}, Closed]],



Cell[CellGroupData[{

Cell[StyleData["Title"],
ShowCellBracket->Automatic,
 CellMargins->{{0, 10}, {15,20}},
 CellElementSpacings->{"GroupIconTopMargin"->0},
 CellFrameColor->RGBColor[0, 0, 0.2],
 CellGroupingRules->{"TitleGrouping", 0},
 PageBreakBelow->False,
 DefaultNewInlineCellStyle->"None",
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LanguageCategory->"NaturalLanguage",
 MenuPosition->1100,
 MenuCommandKey->"1",

TextAlignment->Center,
 TextJustification->0,
 LineSpacing->{1., 5.},
 CounterIncrements->"Title",
 CounterAssignments->{{"Part", 0}, {"Chapter", 0} ,{"MainSection", 0},
 {"Section", 0}, 
 {"NumberedEquation", 0}, {"NumberedFigure", 0}, 
{"Subtitle", 0}, {"Subsubtitle", 0},
{"Problem", 0},{"SolvedProblem", 0},{"Experiment", 0},
{"Theorem", 0},
{"Remark", 0},{"Corollary", 0},{"Definition", 0},
{"Th-Env", 0},
{"ItemNumbered", 0}} 
,
 FontFamily->"Helvetica",
 FontSize->28,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
 FontColor->RGBColor[
  0.3, 0.2, 0.5]
(*
RGBColor[0, 0,0.5]
*)
 ],

Cell[StyleData["Title", "Presentation"],
 CellMargins->{{0, Inherited}, {20, 45}},
 LineSpacing->{1, 5},
 FontSize->40],

Cell[StyleData["Title", "Condensed"],
 CellMargins->{{0, 10}, {4, 8}},
 FontSize->20],

Cell[StyleData["Title", "Printout"],
 CellMargins->{{0, 5}, {10, 15}}],

Cell[StyleData["Title", "SlideShow"],
 FontSize->40]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Subtitle"],
 CellMargins->{{0, 10},{10, 5}},
(* 
	CellFrame->{{1, 3}, {3, 1}},
*)
 CellGroupingRules->{"TitleGrouping", 10},
 PageBreakBelow->False,

ShowCellBracket->Automatic,

(* CellFrameMargins->7, *)

 CellFrameColor->RGBColor[0, 0, 0.2],
 DefaultNewInlineCellStyle->"None",
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LanguageCategory->"NaturalLanguage",
MenuPosition->1120,
 MenuCommandKey->"2",
 
TextAlignment->Center,
 TextJustification->0,
 LineSpacing->{1, 1},
 CounterIncrements->"Subtitle",
 CounterAssignments->{{"Part", 0}, {"Chapter", 0},{"Problem", 0},{"Section", 0}, 
                      {"Equation", 0}, {"Figure", 0}},
 FontFamily->"Helvetica",
 FontSize->26,
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontColor->RGBColor [0.3, 0.3, 0.6]
 (* 
	Background->RGBColor[1, 0.86, 0.35]
*)
 ],

Cell[StyleData["Subtitle", "Presentation"],
 CellMargins->{{0, Inherited}, {30, 3}},
 LineSpacing->{1, 16},
 FontSize->36],

Cell[StyleData["Subtitle", "Condensed"],
 CellMargins->{{0, 10}, {4, 4}},
 FontSize->22],

Cell[StyleData["Subtitle", "Printout"],
 CellMargins->{{0, 5}, {10, 5}}],

Cell[StyleData["Subtitle", "SlideShow"],
 FontSize->36]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Chapters", "Subsection"],

(*

Cell[CellGroupData[{

Cell[StyleData["Chapter-Init"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 CellMargins->{{0, 5}, {0, 0}},
 CellElementSpacings->{"ClosedGroupTopMargin"->20},
 CellGroupingRules->{"SectionGrouping", 16},
 CounterAssignments->{{"Part", 0}, {"Chapter", 0}},
CounterAssignments->{{"Part", 0}, {"Chapter", 0} ,{"MainSection", 0},
 {"Section", 0}, 
 {"NumberedEquation", 0}, {"NumberedFigure", 0}, 
 {"Problem", 0},{"SolvedProblem", 0},{"Experiment", 0},
 {"Theorem", 0},
 {"Remark", 0},{"Corollary", 0},{"Definition", 0},
 {"Th-Env", 0},
 {"ItemNumbered", 0}},
FontFamily->"Helvetica",
 FontSize->10,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
 FontColor->RGBColor[0, 0, 0.2],
MenuPosition->1140],

Cell[StyleData["Chapter-Init", "Printout"]]
}, Closed]],

*)

Cell[CellGroupData[{

Cell[StyleData["Chapter"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 ShowGroupOpener->False,
 CellMargins->{{0, 10}, {10, 35}},
 CellElementSpacings->{"ClosedGroupTopMargin"->20},
 CellGroupingRules->{"SectionGrouping", 16},
CellDingbat->Cell[
   TextData[{ 
     CounterBox["Chapter"],"."}], CellSize -> {45, Inherited}, 
   TextAlignment -> Left], 

 CounterIncrements->"Chapter",
 CounterAssignments->{ {"SubChapter", 0} ,{"MainSection", 0},
 {"Section", 0}, 
 {"NumberedEquation", 0}, {"NumberedFigure", 0},{"NumberedTable", 0}, 
 {"Problem", 0},{"SolvedProblem", 0},{"Experiment", 0},
 {"Theorem", 0},
 {"Remark", 0},{"Corollary", 0},{"Definition", 0},
 {"Th-Env", 0},
 {"ItemNumbered", 0}},
 FontFamily->"Helvetica",
 FontSize->24,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
FontColor->RGBColor[ 0.3, 0.2, 0.5],
MenuPosition->1160],

Cell[StyleData["Chapter", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Chapter", "SlideShow"],
 FontSize->36]


}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Chapter-Nonumber"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 ShowGroupOpener->False,
 CellMargins->{{5, 10}, {5, 15}},
 CellElementSpacings->{"ClosedGroupTopMargin"->20},
 CellGroupingRules->{"SectionGrouping", 16},
 CounterIncrements->"Chapter",
CounterAssignments->{ {"SubChapter", 0} ,{"MainSection", 0},
 {"Section", 0}, 
 {"NumberedEquation", 0}, {"NumberedFigure", 0},{"NumberedTable", 0}, 
 {"Problem", 0},{"SolvedProblem", 0},{"Experiment", 0},
 {"Theorem", 0},
 {"Remark", 0},{"Corollary", 0},{"Definition", 0},
 {"Th-Env", 0},
 {"ItemNumbered", 0}},
 FontFamily->"Helvetica",
 FontSize->24,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
FontColor->RGBColor[ 0.3, 0.2, 0.5],
MenuPosition->1160],

Cell[StyleData["Chapter-Nonumber", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Chapter-Nonumber", "SlideShow"],
 FontSize->36]


}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Appendix"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 ShowGroupOpener->False,
 CellMargins->{{0, 10}, {5, 15}},
 CellElementSpacings->{"ClosedGroupTopMargin"->20},
 CellGroupingRules->{"SectionGrouping", 16},
 
CellDingbat->Cell[
   TextData[{ 
     CounterBox["Chapter"],"."}], CellSize -> {45, Inherited}, 
   TextAlignment -> Left], 
 CounterIncrements->"Chapter",
CounterBoxOptions->{CounterFunction:>(Part[
   CharacterRange["A", "Z"], #]& )},
 
CounterAssignments->{ {"SubChapter", 0} ,{"MainSection", 0},
 {"Section", 0}, 
 {"NumberedEquation", 0}, {"NumberedFigure", 0},{"NumberedTable", 0}, 
 {"Problem", 0},{"SolvedProblem", 0},{"Experiment", 0},
 {"Theorem", 0},
 {"Remark", 0},{"Corollary", 0},{"Definition", 0},
 {"Th-Env", 0},
 {"ItemNumbered", 0}},
 FontFamily->"Helvetica",
 FontSize->24,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
FontColor->RGBColor[0.3, 0.2, 0.5],
MenuPosition->1180],

Cell[StyleData["Appendix", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Appendix", "SlideShow"],
 FontSize->36]

}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["SubChapter"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 ShowGroupOpener->False,
 CellMargins->{{0, 10}, {5, 10}},
 CellElementSpacings->{"ClosedGroupTopMargin"->15},
 CellGroupingRules->{"SectionGrouping", 17},
 
CellDingbat->Cell[
   TextData[{CounterBox["Chapter"],".",
     CounterBox["SubChapter"],"."}], CellSize -> {45, Inherited}, 
   TextAlignment -> Left],
 
CounterIncrements->"SubChapter",
(*
CounterAssignments->{{"SubSubChapter", 0}, {"Theorem", 0}, {"Note", 0}, {
   "Corollary", 0}, {"SolvedProblem", 0}, {"Section", 0}, {
   "Equation", 0}, {"Figure", 0}, {"NumberedInput", 0}, {
   "NumberedFormula", 0}, {"NumberedFigure", 0}, {"NumberedTable", 0}},
*)
 FontFamily->"Helvetica",
 FontSize->22,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
 FontColor->RGBColor [0.3, 0.3, 0.6],
MenuPosition->1200],

Cell[StyleData["SubChapter", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["SubChapter", "SlideShow"],
 FontSize->32]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["SubChapter-Nonumber"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 ShowGroupOpener->False,
 CellMargins->{{30, 10}, {5, 10}},
 CellElementSpacings->{"ClosedGroupTopMargin"->15},
 CellGroupingRules->{"SectionGrouping", 17},
 CounterIncrements->"SubChapter",
(*
CounterAssignments->{{"SubSubChapter", 0}, {"Theorem", 0}, {"Note", 0}, {
   "Corollary", 0}, {"SolvedProblem", 0}, {"Section", 0}, {
   "Equation", 0}, {"Figure", 0}, {"NumberedInput", 0}, {
   "NumberedFormula", 0}, {"NumberedFigure", 0}, {"Numberedtable", 0}},
*)
 FontFamily->"Helvetica",
 FontSize->22,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
 FontColor->RGBColor [0.3, 0.3, 0.6],
MenuPosition->1201],

Cell[StyleData["SubChapter-Nonumber", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["SubChapter-Nonumber", "SlideShow"],
 FontSize->32]
}, Closed]]

(*,

Cell[CellGroupData[{

Cell[StyleData["SubSubChapter"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 ShowGroupOpener->False,
 CellMargins->{{0, 10}, {5, 10}},
 CellElementSpacings->{"ClosedGroupTopMargin"->12},
 CellGroupingRules->{"SectionGrouping", 18},
 
CellDingbat->Cell[
   TextData[{CounterBox["Chapter"],".",
     CounterBox["SubChapter"],".",CounterBox["SubSubChapter"], "."}],
 CellSize -> {40, Inherited}, 
   TextAlignment -> Left],

 CounterIncrements->"SubSubChapter",
 FontFamily->"Helvetica",
 FontSize->16,
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontTracking->"Plain",
 FontColor->RGBColor[0, 0, 0.2]
(* MenuPosition->1240
*)],

Cell[StyleData["SubSubChapter", "Printout"],
 PageBreakBelow->False]
}, Closed]]

*)

}, Closed]],


Cell[CellGroupData[{

Cell["Sections", "Subsection"],



Cell[CellGroupData[{

Cell[StyleData["MainSection"],
 CellFrame->{{0, 0}, {0.5, 1.5}},
 ShowCellBracket->Automatic,
 ShowGroupOpener->True,
 CellMargins->{{25, 100}, {5, 10}},
 CellElementSpacings->{"ClosedCellHeight"->17,
 "ClosedGroupTopMargin"->20,
 "GroupIconTopMargin"->0},
 CellGroupingRules->{"SectionGrouping", 35},
 PageBreakBelow->False,
 CellFrameMargins->{{4, 4}, {1, 1}},
 CellFrameColor->RGBColor[0.7, 0.7, 0.8]

(*
RGBColor[250/256,150/256,40/256]
[0.7, 0.6, 0.5]
*),
 TextJustification->0,
 FontFamily->"Helvetica",
 FontSize->18,
 FontWeight->"Bold",
 FontSlant->"Plain",
  FontColor->RGBColor[ 0.3, 0.2, 0.5],
 Background->RGBColor[0.93, 0.93, 1],
 (* Background->RGBColor[0.850004, 0.850004, 1],*)
MenuPosition->1260],

Cell[StyleData["MainSection", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["MainSection", "SlideShow"],
 CellMargins->{{20, 20}, {10, 5}},
 FontSize->30]
}, Open  ]],


Cell[CellGroupData[{

Cell[StyleData["Section"],
 CellFrame->False,
ShowCellBracket->Automatic,
 ShowGroupOpener->True,
CellDingbat->"\[GraySquare] ",
 CellMargins->{{40, Inherited}, {5, 15}},
 CellGroupingRules->{"SectionGrouping", 40},
 PageBreakBelow->False,
CellFrameMargins->4,
 DefaultNewInlineCellStyle->"None",
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LineSpacing->{1, 2},
 LanguageCategory->"NaturalLanguage",
 CounterIncrements->"Section",
 CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
 MenuCommandKey->"4",
 FontFamily->"Helvetica",
 FontSize->16,
 FontWeight->"Bold",
FontColor->RGBColor[0, 0, 0.500008],
MenuPosition->1300
],

Cell[StyleData["Section", "Presentation"],
 CellMargins->{{40, Inherited}, {12, 20}},
 LineSpacing->{1, 10},
 FontSize->26],


Cell[StyleData["Section", "Condensed"],
 CellMargins->{{40, Inherited}, {6, 10}},
 FontSize->12],

Cell[
StyleData["Section", "Printout"],
CellMargins->{{40, 0},{6, 10}}
],

Cell[StyleData["Section", "SlideShow"],
 CellMargins->{{40, 0}, {10, 15}},
 PageBreakBelow->False,
 FontSize->26]

}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Subsection"],
 CellFrame->False,
 ShowGroupOpener->True,
ShowCellBracket->Automatic,
 CellDingbat->" \[EmptySquare] ",
 CellMargins->{{40, Inherited}, {3, 10}},
 CellGroupingRules->{"SectionGrouping", 45},
 PageBreakBelow->False,
 DefaultNewInlineCellStyle->"None",
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LanguageCategory->"NaturalLanguage",
 CounterIncrements->"Subsection",
 CounterAssignments->{{"Subsubsection", 0}},
 MenuPosition->1300,
 MenuCommandKey->"5",
 FontFamily->"Helvetica",
 FontSize->14,
 FontWeight->"Bold",FontSlant->"Italic",
FontColor->RGBColor[ 0.3, 0.3, 0.6],
MenuPosition->1320
],

Cell[StyleData["Subsection", "Presentation"],
 CellMargins->{{40, Inherited}, {12, 18}},
 LineSpacing->{1, 10},
 FontSize->22],

Cell[StyleData["Subsection", "Condensed"],
 CellMargins->{{40, Inherited}, {6, 12}},
 FontSize->12],

Cell[StyleData["Subsection", "Printout"],
 CellMargins->{{40, 0}, {7, 22}}],

Cell[StyleData["Subsection", "SlideShow"],
 CellMargins->{{40, 20}, {10, 10}},
 PageBreakBelow->False,
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Subsubsection"],
ShowCellBracket->Automatic,
 CellDingbat->" \[EmptySmallSquare] ",
 CellMargins->{{40, Inherited}, {3, 8}},
 CellGroupingRules->{"SectionGrouping", 50},
 PageBreakBelow->False,
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LanguageCategory->"NaturalLanguage",
 CounterIncrements->"Subsubsection",
 MenuPosition->1350,
 MenuCommandKey->"6",
FontFamily->"Helvetica",
 FontSize->13,
 FontSlant->"Italic",
 FontColor->RGBColor[0.3, 0.3, 0.7],
MenuPosition->1340
],

Cell[StyleData["Subsubsection", "Presentation"],
 CellMargins->{{40, Inherited}, {4, 10}},
 LineSpacing->{1, 6},
 FontSize->20],

Cell[StyleData["Subsubsection", "Condensed"],
 CellMargins->{{40, Inherited}, {3, 6}},
 FontSize->10],

Cell[StyleData["Subsubsection", "Printout"],
 CellMargins->{{40, 0}, {3, 6}}],

Cell[StyleData["Subsubsection", "SlideShow"],
 CellMargins->{{40, 20}, {4, 8}},
 PageBreakBelow->False,
 FontSize->20]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Math-Init"],
ShowCellBracket->Automatic,
 ShowGroupOpener->True,
 CellFrame->False,
 CellDingbat->"\[FilledSquare]",
 ShowGroupOpener->False,
 CellMargins->{{40, 10}, {2, 10}},
 CellGroupingRules->{"SectionGrouping", 40},
 PageBreakBelow->False,
 CellFrameLabels->{{
    Cell[
     TextData[{" Mathematica program loading"}]], 
    None}, {None, None}},
 FontFamily->"Helvetica",
 FontSize->13,
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontTracking->"Plain",
 FontColor->RGBColor[0.8, 0, 0],
MenuPosition->1360],

Cell[StyleData["Math-Init", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Math-Init", "SlideShow"],
 FontSize->22]
}, Closed]]


}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Styles for Theorem-like environments", "Section"],

Cell[CellGroupData[{

Cell[StyleData["Theorem"],
 ShowCellBracket->Automatic,
 CellMargins->{{110, 30}, {0, 7}},
 CellGroupingRules->{"SectionGrouping", 60},
 CellHorizontalScrolling->True,
 PageBreakBelow->False,
 
 
CellDingbat->Cell[
   TextData[{StyleBox[
       "T", FontSize -> 14, FontWeight -> "Bold"], 
       StyleBox[
       "HEOREM ", FontSize -> 12, FontWeight -> "Bold"],
       CounterBox["Chapter"], ".", 
       (* CounterBox["SubChapter"], ".", 
	*)
       CounterBox["Theorem"]}], CellSize -> {80, Inherited}, 
   TextAlignment -> Left], 

 CounterIncrements->"Theorem",
 FontFamily->"Helvetica",
 FontSize->14,
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0, 0.7],
MenuPosition->1400],

Cell[StyleData["Theorem", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Theorem", "SlideShow"],
 FontFamily->"Helvetica",
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Remark"],
 ShowCellBracket->Automatic,
 CellMargins->{{150, 30}, {0, 7}},
 CellGroupingRules->{"SectionGrouping", 60},
 CellHorizontalScrolling->True,
 PageBreakBelow->False,
 CellDingbat->Cell[
   TextData[{StyleBox[
       "R", FontSize -> 14, FontWeight -> "Bold"], 
       StyleBox[
       "EMARK ", FontSize -> 12, FontWeight -> "Bold"],
       	CounterBox["Chapter"], ".", 
       (* CounterBox["SubChapter"], ".", 
	*)
       CounterBox["Remark"] }], CellSize -> {80, Inherited}, 
   TextAlignment -> Left],

 CounterIncrements->"Remark",
 FontFamily->"Helvetica",
 FontSize->14,
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0, 0.7],
MenuPosition->1420],

Cell[StyleData["Remark", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Remark", "SlideShow"],
 FontFamily->"Helvetica",
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Corollary"],
 ShowCellBracket->Automatic,
 CellMargins->{{160, 30}, {0, 7}},
 CellGroupingRules->{"SectionGrouping", 60},
 CellHorizontalScrolling->True,
 PageBreakBelow->False,
CellDingbat->Cell[
   TextData[{
StyleBox[
       "C", FontSize -> 14, FontWeight -> "Bold"], 
       StyleBox[
       "OROLLARY ", FontSize -> 12, FontWeight -> "Bold"],
       
	CounterBox["Chapter"], ".", 
      (* CounterBox["SubChapter"], ".", 
	*)
       CounterBox["Corollary"]}], CellSize -> {110, Inherited}, 
   TextAlignment -> Left], 
 CounterIncrements->"Corollary",
 FontFamily->"Helvetica",
 FontSize->14,
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0, 0.7],
MenuPosition->1440],

Cell[StyleData["Corollary", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Corollary", "SlideShow"],
 FontFamily->"Arial",
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Definition"],
 ShowCellBracket->Automatic,
 CellMargins->{{120, 30}, {0, 7}},
 CellGroupingRules->{"SectionGrouping", 60},
 CellHorizontalScrolling->True,
 PageBreakBelow->False,
  
  
CellDingbat->Cell[
   TextData[{StyleBox[
       "D", FontSize -> 14, FontWeight -> "Bold"], 
       StyleBox[
       "EFINITION ", FontSize -> 12, FontWeight -> "Bold"],
       
	CounterBox["Chapter"], ".", 
      (* CounterBox["SubChapter"], ".", 
	*)
       CounterBox["Definition"]}], CellSize -> {90, Inherited},
 
   TextAlignment -> Left],
 CounterIncrements->"Definition",
 FontFamily->"Helvetica",
 FontSize->14,
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0, 0.7],
MenuPosition->1460],

Cell[StyleData["Definition", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Definition", "SlideShow"],
 FontFamily->"Helvetica",
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Th-Env"],
 CellDingbat->"\[FilledDiamond]",
 ShowCellBracket->Automatic,
 ShowGroupOpener->False,
 CellMargins->{{50, 30}, {2, 7}},
 CellGroupingRules->{"SectionGrouping", 60},
 CellHorizontalScrolling->True,
 PageBreakBelow->False,
 FontFamily->"Helvetica",
 FontSize->12,
 FontColor->RGBColor[0, 0, 0.7],
MenuPosition->1480],

Cell[StyleData["Th-Env", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Th-Env", "SlideShow"],
 FontFamily->"Helvetica",
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Th-Env-Dummy"],
 CellDingbat->"\[FilledDiamond]",
 ShowCellBracket->Automatic,
 ShowGroupOpener->False,
 CellMargins->{{2, 2}, {2, 7}},
 CellGroupingRules->{"SectionGrouping", 60},
 CellHorizontalScrolling->True,
 PageBreakBelow->False,
 FontFamily->"Helvetica",
 FontSize->1,
MenuPosition->1480],

Cell[StyleData["Th-Env-Dummy", "Printout"],
 PageBreakBelow->False],

Cell[StyleData["Th-Env-Dummy", "SlideShow"],
 FontFamily->"Helvetica"]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["SolvedProblem"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 ShowGroupOpener->True,
 CellMargins->{{110, 30}, {3, 10}},
 CellGroupingRules->{"SectionGrouping", 60},
 PageBreakBelow->False,

CellDingbat->Cell[
   TextData[{
StyleBox["E", FontSize -> 14, FontWeight -> "Bold"], 
       StyleBox[
       "XAMPLE ", FontSize -> 12, FontWeight -> "Bold"],
       (*
	CounterBox["Chapter"], ".", 
       CounterBox["SubChapter"], ".", 
	*)
       CounterBox["SolvedProblem"]}], 
	CellSize -> {80, Inherited}, TextAlignment -> Left],
 

CounterIncrements->"SolvedProblem",
 CounterAssignments->{{"ProblemInput", 0}, {"SubProblem", 0}},
 FontFamily->"Helvetica",
 FontSize->14,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
 FontVariations->{"Underline"->False},
 FontColor->RGBColor[0.5, 0, 0],
MenuPosition->1500],

Cell[StyleData["SolvedProblem", "Printout"]],

Cell[StyleData["SolvedProblem", "SlideShow"],
 FontSize->22]

}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Problem"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 ShowGroupOpener->True,
 CellMargins->{{120, 30}, {0, 10}},
 CellGroupingRules->{"SectionGrouping", 60},
 PageBreakBelow->False,
 CellDingbat->Cell[
   TextData[{
StyleBox["P", FontSize -> 14, FontWeight -> "Bold"], 
       StyleBox[
       "ROBLEM ", FontSize -> 12, FontWeight -> "Bold"],
       (*
	CounterBox["Chapter"], ".", 
       CounterBox["SubChapter"], ".", 
	*)
       CounterBox["Problem"]}], 
	CellSize -> {80, Inherited}, TextAlignment -> Left],

 CounterIncrements->"Problem",
 CounterAssignments->{{"ProblemInput", 0}, {"SubProblem", 0}},
 FontFamily->"Helvetica",
 FontSize->14,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
 FontColor->RGBColor[0.5, 0, 0],
MenuPosition->1520],

Cell[StyleData["Problem", "Printout"]],

Cell[StyleData["Problem", "SlideShow"],
 FontSize->22]
}, Closed]],


Cell[CellGroupData[{

Cell[StyleData["Experiment"],
 CellFrame->False,
 ShowCellBracket->Automatic,
 ShowGroupOpener->True,
 CellMargins->{{130, 30}, {0, 10}},
 CellGroupingRules->{"SectionGrouping", 60},
 PageBreakBelow->False,
 
CellDingbat->Cell[
   TextData[{
StyleBox["E", FontSize -> 14, FontWeight -> "Bold"], 
       StyleBox[
       "XPERIMENT ", FontSize -> 12, FontWeight -> "Bold"],
       (*
	CounterBox["Chapter"], ".", 
       CounterBox["SubChapter"], ".", 
	*)
       CounterBox["Experiment"]}], 
	CellSize -> {100, Inherited}, TextAlignment -> Left],

 CounterIncrements->"Experiment",
 FontFamily->"Helvetica",
 FontSize->14,
 FontWeight->"Bold",
 FontSlant->"Plain",
 FontTracking->"Plain",
 FontColor->RGBColor[0.5, 0, 0],
MenuPosition->1520],

Cell[StyleData["Experiment", "Printout"]],

Cell[StyleData["Problem", "SlideShow"],
 FontSize->22]

}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Solution"],
 CellDingbat->None,
 ShowCellBracket->Automatic,
 ShowGroupOpener->True,
CellMargins->{{50, 30}, {0, 8}},
 CellGroupingRules->{"SectionGrouping", 65},
 CellHorizontalScrolling->True,
 PageBreakBelow->False,
 CellFrameLabels->{{
    Cell[
     TextData[{"S", 
       StyleBox["OLUTION ", FontSize -> 11,FontWeight -> "Bold"]}]], None}, {
   None, None}},
 FontFamily->"Helvetica",
 FontSize->14,
FontWeight->"Bold",
 FontSlant->"Plain",
 FontColor->RGBColor[0, 0, 0.7],
MenuPosition->1540],

Cell[StyleData["Solution", "Printout"]],
Cell[StyleData["Solution", "SlideShow"],
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Proof"],
 CellDingbat->None,
 ShowCellBracket->Automatic,
 ShowGroupOpener->True,
 CellMargins->{{50, 30}, {0, 8}},
 CellGroupingRules->{"SectionGrouping", 65},
 CellHorizontalScrolling->True,
 PageBreakBelow->False,
 CellFrameLabels->{{
    Cell[
     TextData[{"P", 
       StyleBox["ROOF ",
 FontSize -> 11,FontWeight -> "Bold"]}]],
     None}, {None, None}},
 FontFamily->"Helvetica",
 FontSize->14,
FontWeight->"Bold",
 FontSlant->"Plain",
 FontColor->RGBColor[0., 0, 0.7],
MenuPosition->1560],

Cell[StyleData["Proof", "Printout"],
 PageBreakBelow->False],
Cell[StyleData["Proof", "SlideShow"],
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Sol-End"],
 ShowCellBracket->Automatic,
 CellMargins->{{60, 5}, {5, 1}},
 CellGroupingRules->"NormalGrouping",
 CellHorizontalScrolling->True,
 PageBreakBelow->False,
 CellFrameLabels->{{None, 
    Cell[
     TextData[{StyleForm["\[FilledSquare]"]}]]}, 
   {None, None}},
 FontFamily->"Helvetica",
 FontSize->14,
 FontColor->RGBColor[0, 0, 0.7],
MenuPosition->1580],


Cell[StyleData["Sol-End", "Printout"],
 PageBreakAbove->False],

Cell[StyleData["Sol-End", "SlideShow"],
 FontSize->2]

}, Closed]]


}, Closed]],


Cell[CellGroupData[{

Cell["Styles for Body Text", "Section"],

Cell[CellGroupData[{

Cell["Standard", "Subsection"],

Cell[CellGroupData[{

Cell[StyleData["Text"],
 CellMargins->{{50, 10}, {7, 7}},
 ShowCellBracket->Automatic,
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LineSpacing->{1, 3},
 CounterIncrements->"Text",
FontSize->12,
TextJustification -> 1,
 MenuPosition->1700,
 MenuCommandKey->"7"],

Cell[StyleData["Text", "Presentation"],
 CellMargins->{{50, 10}, {10, 10}},
 LineSpacing->{1, 5},
 FontSize->24],

Cell[StyleData["Text", "Condensed"],
 CellMargins->{{8, 10}, {6, 6}},
 LineSpacing->{1, 1},
 FontSize->11],

Cell[StyleData["Text", "Printout"],
 CellMargins->{{50, 10}, {6, 6}},
 TextJustification->1,
 Hyphenation->True],

Cell[StyleData["Text", "SlideShow"],
 FontSize->24]

}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Text-Indented"],
 CellMargins->{{50, 10}, {7, 7}},
 ShowCellBracket->Automatic,
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LineSpacing->{1, 3},
 CounterIncrements->"Text",
FontSize->12,
TextJustification -> 1,
 MenuPosition->1720,
 ParagraphIndent->25
 ],

Cell[StyleData["Text-Indented", "Presentation"],
 CellMargins->{{50, 10}, {10, 10}},
 LineSpacing->{1, 5},
 FontSize->24],

Cell[StyleData["Text-Indented", "Condensed"],
 CellMargins->{{8, 10}, {6, 6}},
 LineSpacing->{1, 1},
 FontSize->11],

Cell[StyleData["Text-Indented", "Printout"],
 CellMargins->{{50,10}, {6, 6}},
 TextJustification->1,
 Hyphenation->True],

Cell[StyleData["Text-Indented", "SlideShow"],
 FontSize->24]

}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Text-Theorem"],
 CellMargins->{{50, 10}, {7, 7}},
 ShowCellBracket->Automatic,
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LineSpacing->{1, 3},
 CounterIncrements->"Text-Theorem",
TextJustification -> 1,
FontSize->12,
 FontSlant->"Italic",
 MenuPosition->1740
 ],

Cell[StyleData["Text-Theorem", "Presentation"],
 CellMargins->{{50, 10}, {10, 10}},
 LineSpacing->{1, 5},
 FontSize->24],

Cell[StyleData["Text-Theorem", "Condensed"],
 CellMargins->{{8, 10}, {6, 6}},
 LineSpacing->{1, 1},
 FontSize->11],

Cell[StyleData["Text-Theorem", "Printout"],
 CellMargins->{{50,10}, {6, 6}},
 TextJustification->1,
 Hyphenation->True],

Cell[StyleData["Text-Theorem", "SlideShow"],
 FontSize->24]

}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Text-Framed"],
 CellMargins->{{50, 10}, {7, 7}},
 ShowCellBracket->Automatic,
 CellFrame->1,
 InputAutoReplacements->{"TeX" -> FormBox[
     StyleBox[
      RowBox[{"T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
   FormBox[
     StyleBox[
      RowBox[{"L", 
        StyleBox[
         AdjustmentBox[
         "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, BoxBaselineShift -> -0.4],
          FontSize -> Smaller], "T", 
        AdjustmentBox[
        "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
        "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
   "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
   "gridMathematica" -> FormBox[
     RowBox[{"grid", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> 
   FormBox[
     RowBox[{"web", 
       AdjustmentBox[
        StyleBox["Mathematica", FontSlant -> "Italic"], 
        BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList},
 LineSpacing->{1, 3},
 CounterIncrements->"Text",
 CellFrameColor->RGBColor[0.7, 0.7, 0.8],
TextJustification -> 1,
FontSize->12,
 MenuPosition->1760
 ],

Cell[StyleData["Text-Framed", "Presentation"],
 CellMargins->{{50, 10}, {10, 10}},
 LineSpacing->{1, 5},
 FontSize->24],

Cell[StyleData["Text-Framed", "Condensed"],
 CellMargins->{{8, 10}, {6, 6}},
 LineSpacing->{1, 1},
 FontSize->11],

Cell[StyleData["Text-Framed", "Printout"],
 CellMargins->{{50,10}, {6, 6}},
 TextJustification->1,
 Hyphenation->True],

Cell[StyleData["Text-Framed", "SlideShow"],
 FontSize->24]

}, Closed]],


Cell[CellGroupData[{

Cell[StyleData["SmallText"],
 CellMargins->{{60, 10}, {3, 3}},
 ShowCellBracket->Automatic,
 DefaultNewInlineCellStyle->"None",
 LineSpacing->{1, 3},
 LanguageCategory->"NaturalLanguage",
 CounterIncrements->"SmallText",
 MenuPosition->1780,
 StyleMenuListing->True,
 FontFamily->"Helvetica",
 FontSize->10],

Cell[StyleData["SmallText", "Presentation"],
 CellMargins->{{60, 10}, {6, 6}},
 LineSpacing->{1, 5},
 FontSize->18],

Cell[StyleData["SmallText", "Condensed"],
 CellMargins->{{8, 10}, {2, 2}},
 LineSpacing->{1, 2},
 FontSize->10],

Cell[StyleData["SmallText", "Printout"],
 CellMargins->{{2, 2}, {3, 3}},
 TextJustification->0.5,
 Hyphenation->True],

Cell[StyleData["SmallText", "SlideShow"],
 FontSize->18]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Display", "Subsection"],

Cell[CellGroupData[{

Cell["Lists", "Subsubsection"],

Cell[CellGroupData[{

Cell["Bulleted", "Subsubsubsection"],

Cell[CellGroupData[{

Cell[StyleData["Item-Dashed"],
 CellDingbat->"\[Dash]",
 ShowCellBracket->Automatic,
 CellMargins->{{60, 10}, {1, 1}},
 CellHorizontalScrolling->True,
 TextJustification->1,
 LineSpacing->{1, 1},
 CounterIncrements->"Item-Dashed",
 FontSize->12,
TextJustification -> 1,
 MenuPosition->1990],

Cell[StyleData["Item-Dashed", "Printout"]],

Cell[StyleData["Item-Dashed", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Item"],
 CellDingbat->Cell["\[FilledSmallCircle]"],
 ShowCellBracket->Automatic,
 CellMargins->{{60, 10}, {4, 4}},
 ReturnCreatesNewCell->True,
 CellGroupingRules->{"GroupTogetherNestedGrouping", 15000},
 CellFrameLabelMargins->4,
 CounterIncrements->"Item",
 CounterAssignments->{{"Subitem", 0}, {"Subsubitem", 0}},
FontSize->12,
 MenuPosition->2000],

Cell[StyleData["Item", "Presentation"],
 CellMargins->{{100, 10}, {7, 7}},
 CellFrameLabelMargins->6,
 FontSize->24],

Cell[StyleData["Item", "Condensed"],
 CellMargins->{{58, Inherited}, {2, 2}},
 FontSize->10],

Cell[StyleData["Item", "Printout"],
 CellMargins->{{50, 0}, {2, 2}}],

Cell[StyleData["Item", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["ItemParagraph"],
 CellMargins->{{75, 10}, {4, 1}},
 ShowCellBracket->Automatic,
 ReturnCreatesNewCell->True,
 CellGroupingRules->{"GroupTogetherNestedGrouping", 15000},
 DefaultNewCellStyle->"Item",
FontSize->12,
 MenuPosition->2020],

Cell[StyleData["ItemParagraph", "Presentation"],
 CellMargins->{{100, 10}, {7, 2}},
 FontSize->24],

Cell[StyleData["ItemParagraph", "Condensed"],
 CellMargins->{{58, Inherited}, {2, 1}},
 FontSize->10],

Cell[StyleData["ItemParagraph", "Printout"],
 CellMargins->{{50, 0}, {1, 0}},
 FontSize->12],

Cell[StyleData["ItemParagraph", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Subitem"],
 CellDingbat->Cell["\[FilledSmallCircle]", FontWeight -> "Bold"],
 CellMargins->{{90, 12}, {4, 4}},
 ShowCellBracket->Automatic,
 ReturnCreatesNewCell->True,
 CellGroupingRules->{"GroupTogetherNestedGrouping", 15100},
 CellFrameLabelMargins->4,
 DefaultNewCellStyle->"Item",
 CounterIncrements->"Subitem",
FontSize->12,
 CounterAssignments->{{"Subsubitem", 0}},
 MenuPosition->2040],

Cell[StyleData["Subitem", "Presentation"],
 CellMargins->{{125, 12}, {7, 7}},
 CellFrameLabelMargins->6,
 FontSize->24],

Cell[StyleData["Subitem", "Condensed"],
 CellMargins->{{80, 2}, {2, 2}},
 FontSize->10],

Cell[StyleData["Subitem", "Printout"],
 CellMargins->{{70, 2}, {1, 1}}],

Cell[StyleData["SubItem", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["SubitemParagraph"],
 CellMargins->{{90, 12}, {4, 1}},
 ShowCellBracket->Automatic,
 ReturnCreatesNewCell->True,
 CellGroupingRules->{"GroupTogetherNestedGrouping", 15100},
 CellFrameLabelMargins->4,
FontSize->12,
 DefaultNewCellStyle->"Subitem",
 MenuPosition->2060],

Cell[StyleData["SubitemParagraph", "Presentation"],
 CellMargins->{{125, 12}, {7, 2}},
 FontSize->24],

Cell[StyleData["SubitemParagraph", "Condensed"],
 CellMargins->{{80, 2}, {2, 1}},
 FontSize->10],

Cell[StyleData["SubitemParagraph", "Printout"],
 CellMargins->{{70, 2}, {1, 0}}],

Cell[StyleData["SubitemParagraph", "SlideShow"],
 FontSize->24]
}, Closed]]

(*

Cell[CellGroupData[{


Cell[StyleData["Subsubitem"],
 CellDingbat->Cell["\[FilledSmallCircle]", FontWeight -> "Bold"],
 CellMargins->{{110, 12}, {4, 4}},
 ShowCellBracket->Automatic,
 ReturnCreatesNewCell->True,
 CellGroupingRules->{"GroupTogetherNestedGrouping", 15200},
 CellFrameLabelMargins->4,
 DefaultNewCellStyle->"Subsubitem",
FontSize->12,
 CounterIncrements->"Subsubitem",
 MenuPosition->2080],

Cell[StyleData["Subsubitem", "Presentation"],
 CellMargins->{{140, 12}, {7, 7}},
 CellFrameLabelMargins->6,
 FontSize->24],

Cell[StyleData["Subsubitem", "Condensed"],
 CellMargins->{{100, 2}, {2, 2}},
 FontSize->10],

Cell[StyleData["Subsubitem", "Printout"],
 CellMargins->{{90, 2}, {1, 1}},
 FontSize->12],

Cell[StyleData["Subsubitem", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["SubsubitemParagraph"],
 CellMargins->{{110, 12}, {4, 1}},
 ShowCellBracket->Automatic,
 ReturnCreatesNewCell->True,
 CellGroupingRules->{"GroupTogetherNestedGrouping", 15200},
 CellFrameLabelMargins->4,
 DefaultNewCellStyle->"Subsubitem",
 CounterIncrements->"Subsubitem",
FontSize->12,
 MenuPosition->2100],

Cell[StyleData["SubsubitemParagraph", "Presentation"],
 CellMargins->{{140, 12}, {7, 2}},
 FontSize->24],

Cell[StyleData["SubsubitemParagraph", "Condensed"],
 CellMargins->{{100, 2}, {2, 1}},
 FontSize->10],

Cell[StyleData["SubsubitemParagraph", "Printout"],
 CellMargins->{{90, 2}, {1, 0}},
 FontSize->12],

Cell[StyleData["SubsubitemParagraph", "SlideShow"],
 FontSize->24]
}, Closed]]

*)

}, Closed]],

Cell[CellGroupData[{

Cell["Numbered", "Subsubsubsection"],

Cell[CellGroupData[{

Cell[StyleData["ItemNumbered"],
 ShowCellBracket->Automatic,
 CellDingbat->Cell[
   TextData[{
     CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold"],
 CellMargins->{{60, 10}, {4, 4}},
 ReturnCreatesNewCell->True,
 CellGroupingRules->{"GroupTogetherNestedGrouping", 15000},
 CellFrameLabelMargins->4,
 CounterIncrements->"ItemNumbered",
 CounterAssignments->{{"SubitemNumbered", 0}, {"SubsubitemNumbered", 0}},
FontSize->12,
 MenuPosition->2200],

Cell[StyleData["ItemNumbered", "Presentation"],
 CellMargins->{{100, 10}, {7, 7}},
 CellFrameLabelMargins->6,
 FontSize->24],

Cell[StyleData["ItemNumbered", "Condensed"],
 CellMargins->{{58, Inherited}, {2, 2}},
 FontSize->10],

Cell[StyleData["ItemNumbered", "Printout"],
 CellMargins->{{50, 0}, {2, 2}},
 FontSize->12],

Cell[StyleData["ItemNumbered", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["SubitemNumbered"],
 ShowCellBracket->Automatic,
 CellDingbat->Cell[
   TextData[{
     CounterBox["ItemNumbered"], ".", 
     CounterBox["SubitemNumbered"], "."}], FontWeight -> "Bold"],
 CellMargins->{{90, 12}, {4, 4}},
 ReturnCreatesNewCell->True,
 CellGroupingRules->{"GroupTogetherNestedGrouping", 15100},
 CellFrameLabelMargins->4,
 DefaultNewCellStyle->"Item",
 CounterIncrements->"SubitemNumbered",
 CounterAssignments->{{"SubsubitemNumbered", 0}},
FontSize->12,
 MenuPosition->2220],

Cell[StyleData["SubitemNumbered", "Presentation"],
 CellMargins->{{125, 12}, {7, 7}},
 CellFrameLabelMargins->6,
 FontSize->24],

Cell[StyleData["SubitemNumbered", "Condensed"],
 CellMargins->{{80, 2}, {2, 2}},
 FontSize->10],

Cell[StyleData["SubitemNumbered", "Printout"],
 CellMargins->{{70, 2}, {1, 1}},
 FontSize->12],

Cell[StyleData["SubitemNumbered", "SlideShow"],
 FontSize->24]
}, Closed]],


(*

Cell[CellGroupData[{

Cell[StyleData["SubsubitemNumbered"],
 ShowCellBracket->Automatic,
 CellDingbat->Cell[
   TextData[{
     CounterBox["ItemNumbered"], ".", 
     CounterBox["SubitemNumbered"], ".", 
     CounterBox["SubsubitemNumbered"], "."}], FontWeight -> "Bold"],
 CellMargins->{{110, 12}, {4, 4}},
 ReturnCreatesNewCell->True,
 CellGroupingRules->{"GroupTogetherNestedGrouping", 15200},
 CellFrameLabelMargins->4,
 DefaultNewCellStyle->"SubitemNumbered",
 CounterIncrements->"SubsubitemNumbered",
FontSize->12,
MenuPosition->2240],

Cell[StyleData["SubsubitemNumbered", "Presentation"],
 CellMargins->{{140, 12}, {7, 7}},
 CellFrameLabelMargins->6,
 FontSize->24],

Cell[StyleData["SubsubitemNumbered", "Condensed"],
 CellMargins->{{100, 2}, {2, 2}},
 FontSize->10],

Cell[StyleData["SubsubitemNumbered", "Printout"],
 CellMargins->{{90, 2}, {1, 1}},
 FontSize->12]
}, Closed]],
Cell[StyleData["SubitemNumbered", "SlideShow"],
 FontSize->24]
}, Closed]]

*)


}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Styles for Input and Output", "Section"],

Cell[CellGroupData[{

Cell[StyleData["Input"],
 CellMargins->{{50, 10}, {0, 3}},
 CellFrame->{{2, 2}, {0, 2}},
 Evaluatable->True,
 CellGroupingRules->"InputGrouping",
 CellHorizontalScrolling->True,
 PageBreakWithin->True,
 GroupPageBreakWithin->False,
 CellLabelMargins->{{25, Inherited}, {Inherited, Inherited}},
 DefaultFormatType->DefaultInputFormatType,
 AutoItalicWords->{},
 FormatType->StandardForm,
 ShowStringCharacters->True,
 NumberMarks->True,
 CounterIncrements->"Input",
 FontSize->12,
 FontWeight->"Bold",
CellFrameColor->RGBColor[1, 0.93, 0.8],
 Background->RGBColor[0.98, 0.98, 0.9],
MenuPosition->2300],

Cell[StyleData["Input", "Printout"]],

Cell[StyleData["Input", "SlideShow"],
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Output"],
 CellMargins->{{50, 10}, {4, 0}},
CellFrame->{{2, 2}, {2, 0}},
 CellEditDuplicate->True,
 CellGroupingRules->"OutputGrouping",
 CellHorizontalScrolling->True,
 PageBreakWithin->False,
 GroupPageBreakWithin->False,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 CellLabelPositioning->Left,
 CellLabelMargins->{{25, Inherited}, {Inherited, Inherited}},
 DefaultFormatType->DefaultOutputFormatType,
 AutoItalicWords->{},
 FormatType->StandardForm,
 CounterIncrements->"Output",
 FontSize->11,
CellFrameColor->RGBColor[1, 0.93, 0.8],
MenuPosition->2320
],

Cell[StyleData["Output", "Printout"]],

Cell[StyleData["Output", "SlideShow"],
 FontSize->20]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Message"],
 CellDingbat->"\[LongDash]",
 CellMargins->{{60, Inherited}, {Inherited, Inherited}},
 CellGroupingRules->"OutputGrouping",
 PageBreakWithin->False,
 GroupPageBreakWithin->False,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 ShowCellLabel->False,
 CellLabelMargins->{{25, Inherited}, {Inherited, Inherited}},
 DefaultFormatType->DefaultOutputFormatType,
 AutoItalicWords->{},
 FormatType->InputForm,
 CounterIncrements->"Message",
 StyleMenuListing->None,
 FontSize->10,
 FontSlant->"Italic",
 FontColor->RGBColor[1, 0, 0]],

Cell[StyleData["Message", "Printout"],
 CellMargins->{{60, 5}, {3, 3}},
 FontSize->10],

Cell[StyleData["Message", "SlideShow"],
 FontSize->16]
}, Closed]]
}, Closed]],



Cell[CellGroupData[{

Cell["Styles for Formulas and Figures", "Section"],

Cell[CellGroupData[{

Cell[StyleData["NumberedEquation"],
 ShowCellBracket->Automatic,
 CellMargins->{{40, 30}, {5, 5}},
 CellFrameLabels->{{None, 
    Cell[
     TextData[{"(", 
        
	CounterBox["Chapter"], ".", 
      (* CounterBox["SubChapter"], ".",
	*) 
       CounterBox["NumberedEquation"], ")"}]]}, {None, None}},
 DefaultFormatType->DefaultInlineCellFormatType,
 TextAlignment->Center,
 TextJustification->0,
 CounterIncrements->"NumberedEquation",
FontWeight -> "Bold",
MenuPosition->2400],
FontSize->12,
Cell[StyleData["NumberedEquation", "Printout"]],

Cell[StyleData["NumberedEquation", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["NumberedFigure"],
 ShowCellBracket->Automatic,
 CellMargins->{{40, 30}, {5, 6}},
 CellHorizontalScrolling->True,
 CellFrameLabels->{{None, None}, { 
    Cell[
     TextData[{"Figure ",
     
	 CounterBox["Chapter"], ".", 
       (* CounterBox["SubChapter"], ".", 
	*)
       CounterBox["NumberedFigure"]}], FontWeight -> 
     "Bold"],None}},
 TextAlignment->Center,
 TextJustification->0,
 CounterIncrements->"NumberedFigure",
FontSize->12,
MenuPosition->2420],

Cell[StyleData["NumberedFigure", "Printout"]],

Cell[StyleData["NumberedFigure", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["NumberedTable"],
 ShowCellBracket->Automatic,
 CellMargins->{{40, 30}, {5, 6}},
 CellHorizontalScrolling->True,
 CellFrameLabels->{{None, None}, { 
    Cell[
     TextData[{"Table ",
    
	 CounterBox["Chapter"], ".", 
       (*  CounterBox["SubChapter"], ".", 
	*)
       CounterBox["NumberedTable"]}], FontWeight -> 
     "Bold"],None}},
 TextAlignment->Center,
 TextJustification->0,
 CounterIncrements->"NumberedTable",
FontFamily->"Times",
 FontSize->12,
MenuPosition->2420],

Cell[StyleData["NumberedTable", "Printout"]],

Cell[StyleData["NumberedTable", "SlideShow"],
 FontSize->24]
}, Closed]],

(* -----------

Cell[CellGroupData[{

Cell[StyleData["1ColumnBox"],
 CellFrame->True,
 CellMargins->{{5, 5}, {0, 8}},
 CellHorizontalScrolling->True,
 LineIndent->0,
 Background->RGBColor[1, 0.900008, 0.700008],
 FrameBoxOptions->{
 FrameMargins->{{31.200000000000003`, 31.200000000000003`}, {
  15.600000000000001`, 15.600000000000001`}}},
 GridBoxOptions->{GridBoxSpacings->{"Columns" -> {
     Offset[0.27999999999999997`], {
      Offset[0.7]}, 
     Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
     Offset[0.2], {
      Offset[0.4]}, 
     Offset[0.2]}, "RowsIndexed" -> {}}},
MenuPosition->2430],

Cell[StyleData["1ColumnBox", "Printout"]]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["2ColumnBox"],
 CellFrame->True,
 ShowCellBracket->True,
 CellMargins->{{5, 5}, {2, 8}},
 CellHorizontalScrolling->True,
 LineIndent->0,
 Background->RGBColor[1, 0.900008, 0.700008],
 FrameBoxOptions->{
 FrameMargins->{{31.200000000000003`, 31.200000000000003`}, {
  15.600000000000001`, 15.600000000000001`}}},
 GridBoxOptions->{
 GridBoxAlignment->{
  "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
   "RowsIndexed" -> {}},
 GridBoxDividers->{
  "Columns" -> {True, {False}, True}, "ColumnsIndexed" -> {}, 
   "Rows" -> {True, {False}, True}, "RowsIndexed" -> {}},
 GridBoxItemSize->{"Columns" -> {
     Scaled[0.3], {
      Scaled[0.45]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}},
 GridBoxSpacings->{"Columns" -> {
     Offset[0.27999999999999997`], {
      Offset[0.35]}, 
     Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
     Offset[0.2], {
      Offset[0.4]}, 
     Offset[0.2]}, "RowsIndexed" -> {}}},
  MenuPosition->2440],

Cell[StyleData["2ColumnBox", "Printout"]]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["3ColumnBox"],
 CellFrame->True,
 ShowCellBracket->True,
 CellMargins->{{5, 5}, {2, 8}},
 CellHorizontalScrolling->True,
 LineIndent->0,
 Background->RGBColor[1, 0.900008, 0.700008],
 FrameBoxOptions->{
 FrameMargins->{{31.200000000000003`, 31.200000000000003`}, {
  15.600000000000001`, 15.600000000000001`}}},
 GridBoxOptions->{
 GridBoxAlignment->{
  "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
   "RowsIndexed" -> {}},
 GridBoxDividers->{
  "Columns" -> {True, {False}, True}, "ColumnsIndexed" -> {}, 
   "Rows" -> {True, {False}, True}, "RowsIndexed" -> {}},
 GridBoxItemSize->{"Columns" -> {{
      Scaled[0.25]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 MenuPosition->2450],

Cell[StyleData["3ColumnBox", "Printout"]]
}, Closed]],


Cell[CellGroupData[{

Cell[StyleData["2ColumnTable"],
 CellMargins->{{5, 5}, {0, 8}},
 CellHorizontalScrolling->True,
 GridBoxOptions->{
 GridBoxAlignment->{
  "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
   "RowsIndexed" -> {}},
 GridBoxItemSize->{"Columns" -> {
     Scaled[0.3], {
      Scaled[0.5]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
MenuPosition->2460],

Cell[StyleData["2ColumnTable", "Printout"],
 CellMargins->{{5, 5}, {0, 8}},
 FontSize->10]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["3ColumnTable"],
 CellMargins->{{5, 5}, {0, 8}},
 CellHorizontalScrolling->True,
 GridBoxOptions->{
 GridBoxAlignment->{
  "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
   "RowsIndexed" -> {}},
 GridBoxItemSize->{"Columns" -> {{
      Scaled[0.3]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}}, MenuPosition->2470],

Cell[StyleData["3ColumnTable", "Printout"],
 CellMargins->{{5, 5}, {0, 8}},
 FontSize->10]
}, Open  ]]

--------------- *)

}, Closed]]
,

Cell[CellGroupData[{

Cell["Styles for Formulas and Programming", "Section"],

Cell[CellGroupData[{

Cell[StyleData["InlineFormula"],
 CellMargins->{{10, 4}, {0, 8}},
 StripStyleOnPaste->True,
 HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
 LanguageCategory->"Formula",
 ScriptLevel->1,
 SingleLetterItalics->True,
 MenuPosition->2500],

Cell[StyleData["InlineFormula", "Presentation"],
 CellMargins->{{10, 4}, {0, 12}},
 LineSpacing->{1, 5},
 FontSize->24],

Cell[StyleData["InlineFormula", "Condensed"],
 CellMargins->{{8, 10}, {6, 6}},
 LineSpacing->{1, 1},
 FontSize->11],

Cell[StyleData["InlineFormula", "Printout"],
 CellMargins->{{2, 0}, {6, 6}}],

Cell[StyleData["InlineFormula", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["DisplayFormula"],
 CellMargins->{{60, Inherited}, {Inherited, Inherited}},
 StripStyleOnPaste->True,
 DefaultFormatType->DefaultInputFormatType,
 HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
 LanguageCategory->"Formula",
 ScriptLevel->0,
 SingleLetterItalics->True,
 MenuPosition->2520,
 UnderoverscriptBoxOptions->{LimitsPositioning->True}],

Cell[StyleData["DisplayFormula", "Presentation"],
 CellMargins->{{60, Inherited}, {Inherited 1.5, Inherited 1.5}},
 LineSpacing->{1, 5},
 FontSize->24],

Cell[StyleData["DisplayFormula", "Condensed"],
 LineSpacing->{1, 1},
 FontSize->11],

Cell[StyleData["DisplayFormula", "Printout"]],

Cell[StyleData["DisplayFormula", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["DisplayFormulaNumbered"],
 CellMargins->{{60, Inherited}, {Inherited, Inherited}},
 StripStyleOnPaste->True,
 CellFrameLabels->{{None, 
    Cell[
     TextData[{"(", 
       CounterBox["DisplayFormulaNumbered"], ")"}]]}, {None, None}},
 DefaultFormatType->DefaultInputFormatType,
 HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
 LanguageCategory->"Formula",
 ScriptLevel->0,
 SingleLetterItalics->True,
 CounterIncrements->"DisplayFormulaNumbered",
 MenuPosition->2540,
 UnderoverscriptBoxOptions->{LimitsPositioning->True}],

Cell[StyleData["DisplayFormulaNumbered", "Presentation"],
 CellMargins->{{60, Inherited}, {Inherited 1.5, Inherited 1.5}},
 LineSpacing->{1, 5},
 FontSize->24],

Cell[StyleData["DisplayFormulaNumbered", "Condensed"],
 LineSpacing->{1, 1},
 FontSize->11],

Cell[StyleData["DisplayFormulaNumbered", "Printout"]],

Cell[StyleData["DisplayFormulaNumbered", "SlideShow"],
 FontSize->24]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Program"],
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellMargins->{{60, 4}, {0, 8}},
 StripStyleOnPaste->True,
 Hyphenation->False,
 LanguageCategory->"Formula",
 ScriptLevel->1,
 MenuPosition->2560,
 FontFamily->"Courier"],

Cell[StyleData["Program", "Presentation"],
 CellFrame->{{0, 0}, {1, 1}},
 CellMargins->{{60, 4}, {0, 12}},
 LineSpacing->{1, 5},
 FontSize->22],

Cell[StyleData["Program", "Condensed"],
 CellMargins->{{8, 10}, {6, 6}},
 LineSpacing->{1, 1},
 FontSize->11],

Cell[StyleData["Program", "Printout"],
 CellMargins->{{2, 0}, {6, 6}}],

Cell[StyleData["Program", "SlideShow"],
 FontSize->22]
}, Closed]]
}, Closed]],


Cell[CellGroupData[{

Cell["Special book styles", "Section"],

Cell[CellGroupData[{

Cell[StyleData["Author"],
 ShowCellBracket->Automatic,
 CellMargins->{{0, 10}, {5, 5}},
 CellGroupingRules->{"TitleGrouping", 20},
 PageBreakBelow->False,
 FontSize->18,
FontFamily->"Helvetica",
TextAlignment->Center,
 FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor [0.3, 0.3, 0.7],
MenuPosition->2600],

Cell[StyleData["Author", "Printout"],
 CellMargins->{{0, 10},{0, 2}}],

Cell[StyleData["Author", "SlideShow"],
 FontSize->28]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Address"],
 ShowCellBracket->Automatic,
 CellMargins->{{0, 10},{2, 2}},
 CellGroupingRules->{"TitleGrouping", 30},
 PageBreakBelow->False,
 LineSpacing->{1, 1},
 FontSize->14,
FontFamily->"Helvetica",
 FontSlant->"Italic",
TextAlignment->Center,
FontColor->RGBColor[ 0.3, 0.3, 0.7],
MenuPosition->2620],

Cell[StyleData["Address", "Printout"],
 CellMargins->{{0, 10}, {2, 2}}],

Cell[StyleData["Address", "SlideShow"],
 FontSize->22]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Abstract"],
 CellMargins->{{75, 75}, {Inherited, 15}},
 LineSpacing->{1.3, 0},
TextJustification -> 1,
MenuPosition->2640],

Cell[StyleData["Abstract", "Printout"],
 CellMargins->{{75, 75}, {Inherited, 10}},
 FontSize->10],

Cell[StyleData["Abstract", "SlideShow"],
 FontSize->22]
}, Closed]],


Cell[CellGroupData[{

Cell[StyleData["Reference"],
 CellDingbat->Cell[
 TextData[{"[", 
     CounterBox["Reference"], "] "}], 
   TextAlignment -> Right],

 ShowCellBracket->Automatic,
 CellMargins->{{100, 20}, {2, 2}},
 CellHorizontalScrolling->True,
 LineSpacing->{1.2, 1},
 CounterIncrements->"Reference",
 FontSize->12,
TextJustification -> 0.5,
MenuPosition->2660],

Cell[StyleData["Reference", "Printout"]],

Cell[StyleData["Reference", "SlideShow"],
 FontSize->22]
}, Closed]]
}, Open  ]],


Cell[CellGroupData[{

Cell["Styles for Printed Runningheads and Footers", "Section"],

Cell[CellGroupData[{

Cell[StyleData["Header"],
 CellMargins->{{0, 0}, {0, 0}},
 LineSpacing->{1, 8},
 MenuPosition->None,
 FontFamily->"Verdana",
 FontSize->7,
 FontSlant->"Italic"],

Cell[StyleData["Header", "Printout"],
 Magnification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["HeaderSection"],
 StyleMenuListing->None],

Cell[StyleData["HeaderSection", "Printout"],
 Magnification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["HeaderSubsection"],
 StyleMenuListing->None],

Cell[StyleData["HeaderSubsection", "Printout"],
 Magnification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["HeaderTitle"],
 StyleMenuListing->None],

Cell[StyleData["HeaderTitle", "Printout"],
 Magnification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Footer"],
 CellMargins->{{0, 0}, {0, 0}},
 MenuPosition->None,
 FontFamily->"Verdana",
 FontSize->6],

Cell[StyleData["Footer", "Printout"],
 Magnification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["FooterSection"],
 StyleMenuListing->None],

Cell[StyleData["FooterSection", "Printout"],
 Magnification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["FooterSubsection"],
 StyleMenuListing->None],

Cell[StyleData["FooterSubsection", "Printout"],
 Magnification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["FooterTitle"],
 StyleMenuListing->None],

Cell[StyleData["FooterTitle", "Printout"],
 Magnification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["PageNumber"],
 LineSpacing->{1, 8},
 MenuPosition->None,
 FontFamily->"Verdana",
 FontSize->7,
 FontWeight->"Bold"],

Cell[StyleData["PageNumber", "Printout"],
 Magnification->1.]
}, Closed]]
}, Closed]]
},
AutoGeneratedPackage->None,
WindowSize->{680, 651},
WindowMargins->{{33, Automatic}, {Automatic, 15}},
TrackCellChangeTimes->False,
MenuPosition->1100,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)",
StyleDefinitions->"StylesheetFormatting.nb"
]
(* End of Notebook Content *)


(* End of internal cache information *)
